set a "Hello, TCL!" 
puts $a